home *** CD-ROM | disk | FTP | other *** search
/ Family Forum 262 / SOMC Family Forum 262.iso / somc.dir / 00008_eastereggs.ls < prev    next >
Encoding:
Text File  |  1999-03-23  |  501 b   |  30 lines
  1. on exitFrame
  2.   go(the frame)
  3. end
  4.  
  5. on keyDown
  6.   set WHICHKEY to the keyPressed
  7.   if the commandDown and the optionDown then
  8.     beep()
  9.     beep()
  10.     case WHICHKEY of
  11.       "B":
  12.         play frame "BOSCH"
  13.       "C":
  14.         play frame "CAMPBELL"
  15.       "H":
  16.         play frame "HUNT"
  17.       "N":
  18.         play frame "NESTOR"
  19.       "P":
  20.         play frame "PARKER"
  21.       "S":
  22.         play frame "STAR"
  23.       "T":
  24.         play frame "TECSON"
  25.       "W":
  26.         play frame "WIEMER"
  27.     end case
  28.   end if
  29. end
  30.